(apply-macro-to-region-lines): Let-bind mark-active to

nil while executing macro to avoid triggering delete-selection-mode.

diff --git a/lisp/macros.el b/lisp/macros.el
index 0857dd3c2db751be723c1fd63bf0a7824c7045c4..11fa2223a4e431613f87466037ddfc69bc58b3f9 100644 (file)
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -299,7 +299,8 @@ and then select the region of un-tablified names and use
          (forward-line 1)
          (set-marker next-line-marker (point)))
        (save-excursion
-         (execute-kbd-macro (or macro last-kbd-macro))))
+         (let ((mark-active nil))
+           (execute-kbd-macro (or macro last-kbd-macro)))))
       (set-marker end-marker nil)
       (set-marker next-line-marker nil))))